unit TopicF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs;

type
  TTopicFrame = class(TFrame)
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
    procedure OnShow; virtual;
  end;

TTopicFrameClass = class of TTopicFrame;

implementation
uses Utils, ProgramM;

{$R *.dfm}

{ TTopicFrame }

constructor TTopicFrame.Create(AOwner: TComponent);
begin
  inherited;
  ProgramModule.SetScaling(Self);
end;

procedure TTopicFrame.OnShow;
begin
  
end;

end.
